home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Peeker Nr. 15 (1986)(Verlag, Dr. Alfred Huethig)(DE).zip / Peeker Nr. 15 (1986)(Verlag, Dr. Alfred Huethig)(DE).do / REELL.1.bas < prev    next >
BASIC Source File  |  1996-12-24  |  398b  |  13 lines
  1. 100  REM +--------------------+
  2. 110  REM !                    !
  3. 120  REM ! Euklid f}r Basis 2 !
  4. 130  REM !                    !
  5. 140  REM +--------------------+
  6. 150  DIM S(39): HOME 
  7. 160  INPUT "WELCHE ZAHL? ";Z: REM H|chstens 12 Ziffern
  8. 170 S =  INT(Z/2)
  9. 180 S(I) = Z -2 *S: REM Rest
  10. 190 Z = S: IF Z = 0  THEN 210
  11. 200 I = I +1: GOTO 170
  12. 210  PRINT : FOR J = I TO 0  STEP  -1
  13. 220  PRINT S(J);: NEXT